home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 12, No. 12 (1991-12)(MindCraft Publishing)(Side A)[a].zip / Nibble Volume 12, No. 12 (1991-12)(MindCraft Publishing)(Side A)[a].po / IIGS.COLOR.bas < prev    next >
BASIC Source File  |  1996-12-24  |  1KB  |  25 lines
  1. 10  REM  PROGRAM IIGS.COLOR
  2. 20  REM  SET THE COLORS OF THE IIGS SCREEN
  3. 30  REM  YOU CAN SET THE BACKGROUND, BORDER
  4. 40  REM  AND TEXT INDEPENDENTLY
  5. 50  REM  DANGER..THE BORDER COLOR REGISTER C034..49204 IS SHARED BY THE CLOCK.
  6. 60  REM  TEXT AND BACKGROUND SHARE C022..49186
  7. 70  REM  COLOR RANGE IS FROM 0 TO 15
  8. 80  REM  THIS ROUTINE USES BIT.BREAKER AND REASSEMBLER TO MODIFY
  9. 90  REM  THE BORDER REGISTER WITHOUT CHANGING THE CLOCK
  10. 100  HOME : PRINT "COLOR RANGE FROM 0 (BLACK) TO 15 (WHITE)": PRINT 
  11. 110  PRINT "IF YOU SET THE TEXT AND BACKGOUND TO THE "
  12. 120  PRINT "SAME COLOR YOU CAN'T READ THE SCREEN !": PRINT 
  13. 130  PRINT "ENTER TEXT COLOR ";: INPUT TX
  14. 140  PRINT : PRINT "ENTER BACKGROUND COLOR ";: INPUT BK
  15. 150  PRINT : PRINT "ENTER BORDER COLOR ";: INPUT BD
  16. 160  REM  BREAK DOWN THE NUMBER
  17. 170  FOR BT = 0 TO 7:A(BT) = (BD - INT(BD/2) *2):BD =  INT(BD/2): NEXT 
  18. 180 BV =  PEEK(49204): REM  GET BORDER REGISTER VALUE
  19. 190  FOR BT = 0 TO 7:B(BT) = (BV - INT(BV/2) *2):BV =  INT(BV/2): NEXT 
  20. 200  REM  LOWER NIBBLE IS INPUT..UPPER NIBBLE IS CLOCK VALUE FROM 49204
  21. 210  REM  REASSEMBLE THE BORDER BITS INTO DECIMAL VALUE
  22. 220 V = A(0) +2 *A(1) +4 *A(2) +8 *A(3) +16 *B(4) +32 *B(5) +64 *B(6) +128 *B(7)
  23. 230  POKE 49186,TX *16 +BK: REM  SET TEXT AND BACKGROUND
  24. 240  POKE 49204,V: REM  SET BORDER COLOR
  25. 250  VTAB 22: PRINT "PRESS A KEY TO CONTINUE";: GET A$: GOTO 100